home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / A / AirMail 1.02.cpt / AirMail 1.02.rsrc / STR#_1050.txt < prev    next >
Encoding:
Text File  |  1988-09-07  |  2.9 KB  |  157 lines
  1. SERVICE:               COMMAND KEY: ?
  2.  
  3. airMailFolder = @AirMailFolder
  4.  
  5.  
  6.  
  7. '{RTV 7/21/88}
  8.  
  9. IF NOT Exists%(airMailFolder) THEN ‚àÇ
  10.  
  11.     NewFolder airMailFolder
  12.  
  13. IF resultCode% <> 0 THEN ‚àÇ
  14.  
  15.     airMailFolder = ""
  16.  
  17.     
  18.  
  19. IF airMailFolder = "" THEN ‚àÇ
  20.  
  21.     airMailFolder = Left(DirPath,Instr%(DirPath,":")) & "AirMail Folder:" : ‚àÇ
  22.  
  23.     @AirMailFolder = airMailFolder : ‚àÇ
  24.  
  25.     NewFolder airMailFolder
  26.  
  27. IF NOT Exists%(airMailFolder & "Addresses:") THEN ‚àÇ
  28.  
  29.     NewFolder airMailFolder & "Addresses:"
  30.  
  31. padding = "                                    "
  32.  
  33. GOSUB checkDbox
  34.  
  35. IF Instr%(ItemText(6),"File Express") > 0 THEN DBOX 0:GOSUB FXbps
  36.  
  37. IF handle <> "" THEN ‚àÇ
  38.  
  39.     aPath = airMailFolder & handle & ":" : ‚àÇ
  40.  
  41.     NewFolder aPath : ‚àÇ
  42.  
  43.     OPEN 1,airMailFolder & "Addresses:" & handle,WRITE : ‚àÇ
  44.  
  45.     WRITE 1,handle & ":" & theAddress & "‚Ä¢" & theService : ‚àÇ
  46.  
  47.     CLOSE 1
  48.  
  49. END
  50.  
  51.  
  52.  
  53. checkDbox:
  54.  
  55.     Set DBOX 509
  56.  
  57.     DBoxResp(2) = ""
  58.  
  59.     DBoxResp(1) = ""
  60.  
  61.     lastRC% = RadioCluster%(1)
  62.  
  63.     ItemText(6) = ItemText(RadioCluster%(1)+8) & " mail address:"
  64.  
  65.     ItemText(15) = "Please enter a folder name and address below."
  66.  
  67.     lastItemText = ItemText(6)
  68.  
  69.     DBOX 509
  70.  
  71.         loop:
  72.  
  73.             dbr% = DBoxResult%
  74.  
  75.             IF dbr% = CANCEL% THEN ‚àÇ
  76.  
  77.                 handle = "" : ‚àÇ
  78.  
  79.                 RETURN
  80.  
  81.             IF dbr% = OK% THEN  ‚àÇ
  82.  
  83.                 theService = ItemText(RadioCluster%(1)+8) : ‚àÇ
  84.  
  85.                 theAddress = DBoxResp(2) : ‚àÇ
  86.  
  87.                 handle = Left(DBoxResp(1),31) : ‚àÇ
  88.  
  89.                 IF DBoxResp(1) = "" THEN ‚àÇ
  90.  
  91.                     DBoxResp(1) = "" : BELL : GOTO loop ELSE ‚àÇ
  92.  
  93.                     IF DBoxResp(2) = "" THEN ‚àÇ
  94.  
  95.                         DBoxResp(2) = "" : BELL : GOTO loop ELSE ‚àÇ
  96.  
  97.                         RETURN
  98.  
  99.             IF lastRC% <> RadioCluster%(1) THEN ‚àÇ
  100.  
  101.                 lastRC% = RadioCluster%(1) : ‚àÇ
  102.  
  103.                 IF RadioCluster%(1) = 1 THEN ‚àÇ
  104.  
  105.                     ItemText(6) = ItemText(RadioCluster%(1)+8) & " address:"  ‚àÇ
  106.  
  107.                 ELSE ‚àÇ
  108.  
  109.                     IF RadioCluster%(1) = 6 THEN ‚àÇ
  110.  
  111.                         ItemText(6) = ItemText(RadioCluster%(1)+8) & " phone number:" ‚àÇ
  112.  
  113.                     ELSE ‚àÇ
  114.  
  115.                         ItemText(6) = ItemText(RadioCluster%(1)+8) & " mail address:"
  116.  
  117.             goto loop
  118.  
  119.  
  120.  
  121. FXbps:
  122.  
  123.     HOLD OFF
  124.  
  125.     SET DBOX 400
  126.  
  127.     RadioCluster%(1)= 2
  128.  
  129.     CURSOR RESET
  130.  
  131.     DBOX 400
  132.  
  133.     CURSOR WATCH
  134.  
  135.     IF DBoxResult% = CANCEL% THEN handle = "" : RETURN
  136.  
  137.     IF RadioCluster%(1) = 1 THEN bps = "300" ‚àÇ
  138.  
  139.     ELSE IF RadioCluster%(1) = 2 THEN bps = "1200" ‚àÇ
  140.  
  141.     ELSE IF RadioCluster%(1) = 3 THEN bps = "2400" ‚àÇ
  142.  
  143.     ELSE IF RadioCluster%(1) = 4 THEN bps = "4800" ‚àÇ
  144.  
  145.     ELSE IF RadioCluster%(1) = 5 THEN bps = "9600" ‚àÇ
  146.  
  147.     ELSE  bps = "19200"
  148.  
  149.     commParms = bps & ",8,NO%,1,YES%"
  150.  
  151.     theAddress = theAddress & "|" & commParms
  152.  
  153.     RETURN
  154.  
  155.                                 
  156.  
  157.